home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / osi / isode / vmsisode / vmsisode80_tar.Z / vmsisode80_tar / sockit / source / for.com < prev    next >
Encoding:
Text File  |  1991-02-12  |  448 b   |  19 lines
  1. $ for_file = p1+".for"
  2. $ obj_file = p1+".obj"
  3. $ if f$search(obj_file) .NES. ""
  4. $  then
  5. $   obj_date = f$cvtime(f$file_attributes(obj_file,"RDT"))
  6. $   for_date   = f$cvtime(f$file_attributes(for_file,"RDT"))
  7. $   if obj_date .GTS. for_date then exit
  8. $   delete 'obj_file';
  9. $ endif
  10. $!
  11. $ dbg = ""
  12. $ if debug .EQS. "DEBUG" then dbg = "/debug/noopt"
  13. $ f = "for ''dbg' ''for_file'"
  14. $ write sys$output "for ''dbg' ''for_file'"
  15. $ 'f'
  16. $ altered == 1
  17. $ exit
  18.  
  19.